%@ LANGUAGE="VBSCRIPT" %>
<% ID = Request.Querystring("ID") %>
<% ACT = Request.Querystring("ACT") %>
<%IF ACT = "REPLY" THEN
TITLE = "站長回應"
ELSE
TITLE = "修改使用者留言內容"
END IF %>
創意中心留言板管理
<%
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("GBook.mdb")
ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdEditInfo = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT 訪客留言板.* FROM 訪客留言板 WHERE (編號 = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdEditInfo.Open cmdTemp, , 0, 1
%>
<% MESSAGE = CmdEditInfo("留言內容") %>
<% If ACT <> "REPLY" THEN %>
<% MESSAGE = Replace(MESSAGE,"
",vbCrLf) %>
<% ELSE %>
<% MESSAGE = Replace(MESSAGE,vbCrLf,"
") %>
<% END IF %>
<% RMESSAGE = CmdEditInfo("回應") %>
<% IF LEN(TRIM(RMESSAGE))<> 0 THEN %>
<% RMESSAGE = Replace(RMESSAGE,"
",vbCrLf) %>
<% END IF %>
<% IF ACT = "REPLY" THEN %>